home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / TUTOR11.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-21  |  850b  |  35 lines

  1. Program Tutor11;
  2. {$N+,E+}          {Required for floating point number handling}
  3. uses
  4.    CRT,
  5.    GSOB_DBF,
  6.    GSOB_VAR;
  7. var
  8.    MyFile  : GSO_dBaseFld;
  9.    MFields : integer;
  10.    Ch      : char;
  11. begin
  12.    Ch := ' ';
  13.    with MyFile do
  14.    begin
  15.       Init('TUTOR1');
  16.       Open;
  17.       GetRec(Top_Record);
  18.       while (not File_EOF) and (Ch <> #27) do
  19.       begin
  20.          ClrScr;
  21.          Writeln('Record Number ',RecNumber,' of ',NumRecs);
  22.          Writeln;
  23.          for MFields := 1 to NumFields do
  24.             writeln(MFields:3,'   ',
  25.                     FieldName(MFields):10,': ',
  26.                     FieldGetN(MFields));
  27.          writeln;
  28.          writeln('Deleted Status = ',DelFlag);
  29.          Ch := ReadKey;                    {wait for keypress}
  30.          GetRec(Next_Record);
  31.       end;
  32.       Close;
  33.    end;
  34. end.
  35.